www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/admin/UserLock.asp
<%@language=vbscript codepage=936 %> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <% dim UserID,Action,sql UserID=trim(Request("UserID")) Action=trim(request("Action")) if UserID<>"" then if Action="Lock" then sql="Update [User] set LockUser=true where UserID=" & CLng(UserID) else sql="Update [User] set LockUser=false where UserID=" & CLng(UserID) end if conn.Execute sql call CloseConn() end if response.redirect "UserManage.asp" %>